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TELETYPE CONTROL OF ND50/50 MEMORY UNIT (TYPED) 


DECUS Program Library Write-up 


DECUS No. 8-371 


TYPED is a program to allow the user quick access to Nuclear Data's 50/50 Memory 
and Display unit via the ASR33 teletype. After entry through the monitor, the user 
types in the starting channel (1-4096) and the program echoes the contents which are 
then subject to modification. The program contains two control characters, one in 
case of error made in typing channel contents, the other is a terminal character which 
returns control to the monitor routine. 





/ 6/23/70 WJB 


/PROGRAM TO INPUT NUMBERS IN NUCLEAR DATA 
/ 50-50 SYSTEM MEMORY AND DISPLAY UNIT FROM 
/ASR 33 TTY. USE AS OVERLAY WITH NUCLEAR DATA'S 
/PHYSICA ANALYZER PROGRAM(ND40 - 1042). 

/ INPUT VIA "TY"ALTMODE ETC... 


/DEFINITIONS FOR ASSEMBLY 




IN 

=4405 



CRLF 

=4465 



EIM 

=4407 



FPBI 

=0010 



END 

=5471 



CONN 

=6371 



BSF 

=6372 



SARI 

=6367 



ANFP 

=0012 



FCOF 

=0016 



OUTPUT 

=0014 



FCON 

=0015 



FPAN 

=0011 



SPACE 

=4470 



PRINT 

=4467 



*300 


0300 

5347 

5347 

/DECODE 



*342 


0342 

5000 

5000 

/BEGN 



*5000 


5000 

4467 

BEGN, 

PRINT 

5001 

2005 


2005 

5002 

4011 


4011 

5003 

1640 


1640 

5004 

0401 


0401 

5005 

2401 


2401 

5006 

4447 


4447 

5007 

2324 


2324 

5010 

0122 


0122 

5011 

2411 


2411 

5012 

1607 


1607 

5013 

4003 


4003 

5014 

1001 


1001 

5015 

1616 


1616 

5016 

0514 


0514 

5017 

4075 


4075 

5020 

4000 


4000 


/PRINT TYPE IN 
/DATA, CRLF 
/STARTING CHANNEL= 





a 






5/21 

44/5 INPUT1, 

IN 

5/22 

4465 

CRLF 

5/23 

44/7 

EIM 

5/24 

//!/ 

FPBI 


/INPUT CHANNEL 


5/25 
5/26 
5/27 
5/3/ 

5/31 
5/32 
5/33 
5/34 
5/35 
5/36 
5/37 
5/4/ 7/// 

5/41 1231 

5/42 6373 

5/43 5242 

5/44 6367 

5/45 44/7 

5/46 //12 

5/47 //16 

5/5/ //14 

5/51 //// 

5/52 
5/53 
5/54 
5/55 


FPUT CHAN 
FEXT 

/ 

/ 

/ 

CLA CLL 
TAD TCHAN 
TAD Ml 
DCA TCHAN 
SKP 

ISZ TCHAN 
NOP 

TAD TCHAN 

CONN BSF 

JMP .-1 

SARI 

EIM 

ANFP 

FCOF 

OUTPUT 

FEXT 

IN 

JMS CHECK1 
CLA CLL 
JMS CHECK2 


6227 

//// 

//// CHAN, 

//// 

//// TCHAN 
73// 

1231 

1311 

3231 

741/ 

2231 INCRM, 


44/5 INPUT2 

4266 

73// 

4276 


5/56 

73// 

CLA CLL 

5/57 

44/7 

EIM 

5/6/ 

//15 

FCON 

5/61 

//ll 

FPAN 

5/62 

//16 

FCOF 

5/63 

//// 

FEXT 

5/64 

4465 

CRLF 

5/65 

5237 

JMP INCRM 

5/66 

//// CHECK1, 

/ 

5/67 

73// 

CLA CLL 

5/7/ 

1/57 

TAD Z 57 

5/71 

1312 

TAD M244 

5/72 

71// 

CLL 

5/73 

764/ 

SZA CLA 

5/74 

5666 

JMP 1 CHEC 

5/75 

5471 

END 


/EXP 

/HORDR 

/LORDR 


/ C(TC HAN)-1 


/OUTPUT OLD NUMBER 

/INPUT NEW NUMBER 
/IS IT $ (TERMINAL) 

/YES: RETURN; NOrCONT 1 
/IS IT * (ERROR) 

/YES: THEN SET FOR 

/FOR INPUT TO SAME CHANNEL 

/NO: CONT 1 
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5J076 

0000 

CHECK2, 

0 

5077 

7300 


CLA CLL 

5100 

1057 


TAD Z 57 

5101 

1313 


TAD M252 

5102 

7100 


CLL 

5103 

7640 


SZA CLA 

5104 

5676 


JMP1CHECK2 

5105 

4465 


CRLF 

5106 

4470 


SPACE 

5107 

0012 


0012 

5110 

5252 


JMP INPUT2 

5111 

7777 

Ml, 

7777 

5112 

7534 

M244, 

7534 

5113 

7526 

M252, 

7526 

ANFP 


0012 


BEGN 


5000 


BSF 


6372 


CHAN 


5027 


CHECK1 


5066 


CHECK2 


5076 


CONN 


6371 


CRLF 


4465 


EIM 


4407 


END 


5471 


FCOF 


0016 


FCON 


0015 


FPAN 


0011 


FPBI 


0010 


IN 


4405 


INCRM 


5037 


INPUT1 


5021 


INPUT2 


5052 


Ml 


5111 


M2 44 


5112 


M252 


5113 


OUTPUT 


0014 


PRINT 


4467 


SARI 


6367 


SPACE 


4470 


TCHAN 


5031 
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EXAMPLE OF OPERATION OF PROGRAM 

THE UNDERLINED CHARACTERS AND NUMBERS ARE SUPPLIED BY USER. IN 
CHANNEL 253 AN ERROR WAS MADE IN THE INPUT, SO THE (*) WAS TYPED. 
THIS RETURNS THE INPUT TO CHANNEL 253 WHERE 200 WAS INPUTTED. THE 
($) WAS TYPED TO RETURN TO THE MONITOR ROUTINE. 



*TYPE IN DATA 
STARTING CHANNEL = 250 
0100 
0200 
0 

300500 * 

W 

0100 

0100000 

030 $ 

*IYPE IN DATA 
STARTING CHANNEL =250 
100 
200 
0 

200 

100 

100000 

0 $ 


* 

m 
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